-- background: 2651 from stack: in.0
-- bmap block id: 3239
-- flags: 4000
-- background id: 0
-- name: FirstBack
----- HyperTalk script -----
on opencard
  hide bkgnd field "showmod"
  hide bkgnd field "showsize"
  hide bkgnd field "showcreate"
  hide bkgnd field "showname"
  show bkgnd button "covershare"
  show bkgnd button "list files"
  show background button "list vols"
  hide bkgnd field "showname"
  hide bkgnd field "showcreate"
  hide bkgnd field "showsize"
  hide bkgnd field "showmod"
  show bkgnd button "covershare"
  show bkgnd button "coverfunction"
  put the number of cards of this background into bkgnd field "numvol"
end opencard

ON controlkey thekey
  if thekey is 1 then
    click at the loc of bkgnd button "add disk"
  end if
  if thekey is 4 then
    click at the loc of bkgnd button "delete disk"
  end if
  if thekey is 19 then
    click at the loc of bkgnd button "Search"
  end if

end controlkey



-- part 12 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=460 top=4 right=37 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 21060 / 21060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: help
----- HyperTalk script -----
on mouseUp
  go to first card of background "helpback"
end mouseUp



-- part 14 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=82 top=100 right=115 bottom=220
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: VolumeName


-- part 15 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=4 top=318 right=335 bottom=52
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: files


-- part 16 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=5 top=230 right=251 bottom=77
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: List Files
----- HyperTalk script -----
on mouseUp
  if bkgnd field "files" is not empty then
    repeat with x=1 to the number of lines in bkgnd field "files"
      put line x of bkgnd field "files" &"," after last char of filist
    end repeat
    put sortitems(filist,false) into filist
    doList "More Info","Cancel",filist,ONE,9,125
    put item 2 of the result into searchfor
    put empty into sfou
    ---put item 2 of the result into searchfor
    ---put searchfor into message
    repeat with x=1 to the number of lines in bkgnd field "files"
      if line x of bkgnd field "files" contains searchfor then
        put true into sfou
        exit repeat
      end if
    end repeat
    if sfou is true then
      hide bkgnd button "list files"
      hide background button "list vols"

      put line x of background field "size" & " K" into background field "showsize"
      put "Last Modified: "&line x of bkgnd field "mod" into bkgnd field "showmod"
      put "Type: "& line x of bkgnd field "create" into bkgnd field "showcreate"
      put searchfor into bkgnd field "showname"
      set lockscreen to true
      hide background button "coverfunction"
      show bkgnd field "showname"
      show bkgnd field "showcreate"
      show bkgnd field "showsize"
      show bkgnd field "showmod"
      set lockscreen to false
    end if
  end if
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=237 top=230 right=251 bottom=309
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: List Vols
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  go to first card of this background
  set cursor to 4
  repeat with x=1 to the number of cards of this background
    put line 1 of bkgnd field "volumename" &"," after last char of volist
    go to next card of this background
  end repeat
  put sortitems(volist,false) into volist
  set lockscreen to false
  dolist "Go To","Cancel",volist,one,9,125
  put item 2 of the result into goto
  find word goto in bkgnd field "volumename"

end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=5 top=316 right=335 bottom=73
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add Disk
----- HyperTalk script -----
on mouseUp
  answer"Add catalog to a new card or erase this card?"  with "Cancel" or "Erase" or "New"

  if it is "New" then
    doMenu "New Card"
  end if
  if it is "Cancel" then
    exit mouseup
  end if

  put readcat() into catbox
  put line 1 of catbox into bkgnd field "volumename"
  repeat with x=2 to the number of lines in catbox
    put line x of catbox into analyze
    put item 4 of analyze into line x of background field "files"
    put item 3 of analyze into line x of bkgnd field "size"
    put item 2 of analyze into line x of bkgnd field "mod"
    put item 7 of analyze into line x of bkgnd field "create"
  end repeat

end mouseUp



-- part 21 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=20 top=33 right=51 bottom=111
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: size


-- part 22 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=15 top=55 right=74 bottom=116
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mod


-- part 23 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=64 top=119 right=138 bottom=246
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: showsize


-- part 24 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=64 top=141 right=159 bottom=246
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: showmod


-- part 25 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=64 top=162 right=180 bottom=246
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: showcreate


-- part 29 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=64 top=256 right=282 bottom=246
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: showname


-- part 30 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=85 top=70 right=88 bottom=218
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: create


-- part 32 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=2 top=1 right=21 bottom=26
-- title width / last selected line: 0
-- icon id / first selected line: 11045 / 11045
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gohome
----- HyperTalk script -----
on mouseUp
  if the freesize of this stack is 0 then
    go home
    exit mouseup
  end if
  put the freesize of this stack into fsz
  put fsz&" bytes unused. Compact stack?" into lne
  answer lne with "Yes" or "Just go Home"
  if it is "Yes" then
    doMenu "Compact Stack"
  end if



  go home
end mouseUp



-- part 33 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=338 top=140 right=158 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Change Type/Creator
----- HyperTalk script -----
on mouseup
  play boing
  hide bkgnd button "covershare"
  wait until the mouseclick
  show bkgnd button "covershare"
  show bkgnd button "list files"
  show background button "list vols"
  show bkgnd button "click"
  hide bkgnd field "showname"
  hide bkgnd field "showcreate"
  hide bkgnd field "showsize"
  hide bkgnd field "showmod"
  show bkgnd button "covershare"
  show bkgnd button "coverfunction"

end mouseup



-- part 34 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=339 top=165 right=183 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete File
----- HyperTalk script -----
on mouseup
  play boing
  hide bkgnd button "covershare"
  wait until the mouseclick
  show bkgnd button "covershare"
  show bkgnd button "list files"
  show background button "list vols"
  show bkgnd button "click"
  hide bkgnd field "showname"
  hide bkgnd field "showcreate"
  hide bkgnd field "showsize"
  hide bkgnd field "showmod"
  show bkgnd button "covershare"
  show bkgnd button "coverfunction"

end mouseup



-- part 35 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=339 top=213 right=231 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Change Name
----- HyperTalk script -----
on mouseup
  play boing
  hide bkgnd button "covershare"
  wait until the mouseclick
  show bkgnd button "covershare"
  show bkgnd button "list files"
  show background button "list vols"
  show bkgnd button "click"
  hide bkgnd field "showname"
  hide bkgnd field "showcreate"
  hide bkgnd field "showsize"
  hide bkgnd field "showmod"
  show bkgnd button "covershare"
  show bkgnd button "coverfunction"

end mouseup



-- part 36 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=339 top=189 right=207 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Copy File
----- HyperTalk script -----
on mouseup
  play boing
  hide bkgnd button "covershare"
  wait until the mouseclick
  show bkgnd button "covershare"
  show bkgnd button "list files"
  show background button "list vols"
  show bkgnd button "click"
  hide bkgnd field "showname"
  hide bkgnd field "showcreate"
  hide bkgnd field "showsize"
  hide bkgnd field "showmod"
  show bkgnd button "covershare"
  show bkgnd button "coverfunction"

end mouseup



-- part 37 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=328 top=238 right=322 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: covershare


-- part 38 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=330 top=115 right=236 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: coverfunction


-- part 39 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=248 top=260 right=280 bottom=278
-- title width / last selected line: 0
-- icon id / first selected line: 22308 / 22308
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: goright
----- HyperTalk script -----
on mouseUp
  go to next card of this background
end mouseUp



-- part 40 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=32 top=260 right=280 bottom=62
-- title width / last selected line: 0
-- icon id / first selected line: 19381 / 19381
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: goleft
----- HyperTalk script -----
on mouseUp
  go to previous card of this background
end mouseUp



-- part 41 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=166 top=316 right=335 bottom=234
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Search
----- HyperTalk script -----
on mouseUp
  answer"Search for Volume Name or FileName?" with "Volume" or "File" or "Cancel"
  if it is "Volume" then
    ask"Search for what Volume?"
    if it is not empty then
      put it into sf
      find chars sf in background field "VolumeName"
    end if
  end if

  if it is "File" then
    ask"Search for what file?"
    if it is not empty then
      put it into sf
      find chars it in bkgnd field "files"
    end if
  end if

end mouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=238 top=316 right=335 bottom=306
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  sort by bkgnd field "volumename"
end mouseUp



-- part 43 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=82 top=78 right=93 bottom=220
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: numvol


-- part 44 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=423 top=28 right=43 bottom=445
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: click


-- part 45 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=78 top=316 right=335 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Disk
----- HyperTalk script -----
on mouseUp
  answer"Delete this card and diskette catalog?" with "Yes" or "Cancel"
  if it is "Yes" then
    doMenu "Delete Card"
  end if
end mouseup



-- part 46 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=233 top=26 right=106 bottom=331
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  answer"PAY YOUR SHAREWARE FEE! <grrrr>"
end mouseUp